CD-ROM Magazine 28 Bonus/CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin/data/shared.dir/03018_Script_SPECIAL CURSORS

Text File | 1996-06-21 | 1KB | 44 lines

-- ---------------------------------------------------------------
-- Handler setSpriteCursors

on setSpriteCursors cursorSpriteList
  repeat with i = 1 to count (cursorSpriteList)
    setSpriteCursor getAt(cursorSpriteList,i)
  end repeat
end

-- ---------------------------------------------------------------
-- Handler setSpriteCursor

on setSpriteCursor cursorSpritePair
  set whichSprite = getAt(cursorSpritePair,1)
  set whichCursor = value(getAt(cursorSpritePair,2))
  set the cursor of sprite whichSprite = whichCursor
  updateSpecialCursorSprites(whichSprite)
end

-- ---------------------------------------------------------------
-- Handler updateSpecialCursorSprites

on updateSpecialCursorSprites whichSprite
  global specialCursorSprites

  add specialCursorSprites, whichSprite
end

-- ---------------------------------------------------------------
-- Handler resetSpriteCursors

on resetSpriteCursors
  global specialCursorSprites

  repeat with i = 1 to count(specialCursorSprites)
    --    if NOT getAt(specialCursorSprites,i) = the clickOn then
    --      set the cursor of sprite getAt(specialCursorSprites,i) = 0
    set the cursor of sprite getAt(specialCursorSprites,i) = -1
    --    end if

  end repeat

  set specialCursorSprites = []
end